home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / gawk-3.000 / gawk-3 / gawk-3.0.0 / test / arrayparm.awk < prev    next >
Encoding:
AWK Script  |  1995-08-13  |  301 b   |  22 lines
  1. #
  2. # Test program from:
  3. #
  4. # Date: Tue, 21 Feb 95 16:09:29 EST
  5. # From: emory!blackhawk.com!aaron (Aaron Sosnick)
  6. # 
  7. BEGIN {
  8.     foo[1]=1;
  9.     foo[2]=2;
  10.     bug1(foo);
  11. }
  12. function bug1(i) {
  13.     for (i in foo) {
  14.     bug2(i);
  15.     delete foo[i];
  16.     print i,1,bot[1];
  17.     }
  18. }
  19. function bug2(arg) {
  20.     bot[arg]=arg;
  21. }
  22.